home *** CD-ROM | disk | FTP | other *** search
/ SPACE 2 / SPACE - Library 2 - Volume 1.iso / program / 18 / forthsup / demo < prev    next >
Encoding:
Text File  |  1986-09-18  |  3.0 KB  |  84 lines
  1. \ Forthmacs Demonstration program.  Just load this file and watch it go.
  2. decimal
  3. cursor-off
  4. create forgetme
  5. fload interval.fth
  6. : wait  ( -- ) td 4000 ms ;
  7. : short ( -- ) th 500 ms ;
  8. erase-screen
  9. cr .(                  Welcome to Forthmacs) cr
  10. cr .(  Forthmacs is a powerful programming environment for the Atari ST) cr
  11. short
  12. cr .(  It is based on the Forth 83 programming language) cr short
  13. cr .(  Forthmacs Features:) cr short
  14. cr .(    * Uses real files - Here's one of them:) cr
  15. cr more midi.fth
  16. wait erase-screen
  17. cr .(    * Includes the multi-window EMACS text editor) cr  wait
  18. cr .(    * Multitasking) cr wait  erase-screen
  19. cr .(    * Disassembler -  Here's part of the system ROM:) cr
  20. cr th fc0020 (dis  cr wait
  21. cr .(    * Forthmacs can be used to debug programs written in C !) cr wait
  22. erase-screen
  23. cr .(    * Structured Decompiler - Here's part of the Forthmacs system:) cr
  24. cr .(  see find) cr
  25. cr see find cr  wait
  26. cr .(    * You can see the implementation of the entire Forthmacs system!)
  27. cr wait erase-screen
  28. decimal
  29. cr .(    * 32-bit arithmetic) cr
  30. cr .( 1234567  7  *  .  )   12345678 7 * .  cr
  31. : spin  td 10001000 9999000 do i (cr . loop ;
  32. cr decimal spin  short erase-screen
  33. cr .(    * Fast graphics:) cr
  34. cr .( Compiling the graphics demo...)
  35. fload art.fth
  36. : pictures  ( n -- )  stringart-setup 0 do new-drawing loop ;
  37. td 10 pictures  short
  38. cr .(    * Interfaces to ALL the Atari ST system features) cr
  39. cr .(    GEMDOS) short
  40. lf .(    BIOS)   short
  41. lf .(    Extended BIOS) short
  42. lf .(    VDI) short
  43. lf .(    AES) short
  44. lf .(    Line-A Graphics) short
  45. cr .(    Midi) short
  46. lf .(    Printer) short
  47. lf .(    Serial Line) short
  48. lf .(    Mouse) cr  wait erase-screen
  49. cr .(    * Command line editing with history)              cr  wait
  50. cr .(    * Produces relocatable turnkey applications)      cr  wait
  51. cr .(    * Communications and file transfer)               cr  wait
  52. erase-screen
  53. cr .(    * Command processing: ) cr
  54. cr .( DIR) cr cr
  55. dir
  56. cr wait erase-screen
  57. cr .(    * On-line help:) cr
  58. cr .( whatis  eload) cr
  59. cr whatis eload cr wait erase-screen
  60. cr .(    * Source-level Forth debugger)  cr short
  61. cr .(        Single-stepping) cr short
  62. cr .(        Tracing) cr wait
  63. cr .(    * Complete manual available) cr  wait
  64. cr .(    * Runs well on ANY Atari ST system) cr
  65. cr .(        512K or 1Meg memory) cr
  66. cr .(        520ST or 1040ST) cr
  67. cr .(        Any number of drives) cr
  68. cr .(        Single-sided or Double-sided Drive) cr
  69. cr .(        Color or Monochrome) cr
  70. wait  erase-screen
  71. cr .(                        Forthmacs!) cr
  72. cr .(    The most powerful) lf short
  73. lf .(    The most productive) lf short
  74. lf .(    The most pleasant) cr short
  75. cr .(       The BEST programming system for the Atari ST !) cr wait
  76. erase-screen
  77. forget forgetme
  78. cr .( Entering the Forthmacs command interpreter.)  cr
  79. cr .( To restart the demo, type    fload demo) cr
  80. cr .( To prevent the demo from automatically running, edit the file  AUTO.FTH)
  81. cr
  82. cr .( For more information, type   help   in lower case.) cr
  83. cr
  84.